C***** SMPLS.F4  (CALLED 'WAVES' AT IRCAM)**************
C DISPLAYS SAMPLES (WAVES) OF .DAT FILES PRODUCED BY PASS3, MUSIC5.

	DIMENSION I(512),ILI(1),L(131)
CXX	DOUBLE PRECISION NM,NMX,NMZ,ITST,NBLA
   	INTEGER*4 NM,NMX,NMZ,ITST,NBLA
	EQUIVALENCE (I1,I),(I2,I(2)),(I3,I(3)),(AMP,MAXAMP)
	DATA NBLA/'    '/,IBLA/' '/,IAST/'*'/,ITST/'TEST'/
	DATA IFF/'F'/,NMX/'    '/
1212	IDEV=5   
C***** 5=TTY, 1=DSK
	LCNT=20
	LEND=130
	KOLD=130
C  JUNPAC IS FOR OTHER THAN 12-BIT SMPLS.  NOT USED YET.
	JUNPAC=0
	JNCX=0
	KCNT=0
	ICNT=0
	TYPE 30
	ACCEPT 31,NM
CC	IF(NM.EQ.NBLA)NM=NMX
	IF(NM.EQ.NBLA)NM=ITST
	NMX=NM
CC4000	IF(NM.EQ.NMZ)NM=ITST
CPDP10	CALL IFILE(21,NM)
    	CALL OPEN(21,NM,0,'RDO',,,'UNF')
C////	KBIT=3
C////	IAMP=131000
C////	DUR=ISMPLS/DUR
C**** NEXT 2 FOR PDP11 VERSION (12BIT ONLY NOW)
	IAMP=2080
	JAMP=51
	ISMPLS=32000

	K40=40
	IFLIP=0
	NCH=1
	IF(NCHNS.LT.2)GO TO 33
	TYPE 34
34	FORMAT(' TYPE CHNL NUM.  '$)
	IFLIP=-1
	ACCEPT 1,NCH
	IF(NCH.EQ.0)NCH=1
	IF(NCH.NE.1)IFLIP=-IFLIP
33	TYPE 47
	ACCEPT 46,INCX
	IF(INCX.EQ.0)INCX=1
	TYPE 40
	F=0
	ACCEPT 46,ISKP,LAST,NORM
C***************************************************************
C************* YOU MUST PUT COMMAS BETWEEN INPUT NUMBERS *******
C***************************************************************
	IF(LAST.EQ.0)LAST = ISKP+100
C  IF NO NUMBER IS TYPED FOR 'LAST' ISKP+100 SAMPLES ARE DISPLAYED.
	IF(LAST.LT.ISKP)LAST=ISKP+LAST
	IF(LAST.GT.ISMPLS)LAST=ISMPLS
	IF(ISKP.NE.0)ISKP=ISKP-1
50	FORMAT(' <CR>=DPY   F=TO A FILE '$)
51	FORMAT(' <CR>=LPT FORMAT     D=DPY FORMAT '$)
	TYPE 50
	ACCEPT 31,IDSK
	IF(IDSK.NE.IFF)GO TO 45
	TYPE 51
	ACCEPT 31,IFL
CPDP10	CALL OFILE(1,'SMPLS')
   	CALL OPEN(1,'SMPLS',0,'NEW')
CC	IF(IDSK.NE.IFF)GO TO 144
	LCNT=50
	TYPE 44
CC44	FORMAT(/' WRITING FILE: SMPLS.DAT',/,
44	FORMAT(/' WRITING FILE: SMPLS.DAT',/)
CC	1 ' TO STOP: TYPE <CALL>, F <CR>')
144	IDEV=1  
C** FOR DSK OUTPUT.
40	FORMAT(' TYPE SAMPLE NUM.1, NUM2  '$)
1	FORMAT(8I9)
46	FORMAT(8I)
31	FORMAT(2A4)
30	FORMAT(' TYPE FILE NAME  '$)
5	FORMAT(1X80A1)
CC	JAMP=51
CC	IF(JUNPAC.NE.0)JAMP=1637
45	IF(IFL.NE.IBLA)GO TO 2
CC45	IF(IFL.NE.IBLA)GO TO 102
	JAMP=32
CC	IF(JUNPAC.NE.0)JAMP=1007
	K40=65
	GO TO 2
CC102	IF(JUNPAC.NE.0)GO TO 2
CC202	IF(MAXAMP.GT.1900)GO TO 2
C////	IF(K.NE.'N')GO TO 2
C////	JAMP=IAMP/40
C////	DO 3 K=1,1024
2	READ(21)I
	DO 3 JJ=1,512

	IFLIP=-IFLIP
	ICNT=ICNT+1    
	  IF(ICNT.LT.ISKP)GO TO 3
	IF(ICNT.GT.LAST)GO TO 41 
	IF(IFLIP)GO TO 3  
C****** STEREO FLIP-FLOP
	JNCX=JNCX+1
	IF(JNCX.NE.INCX)GO TO 3
	JNCX=0
99	KX=I(JJ)
	KK=(KX+IAMP)/JAMP  
	KF=-1
	KZZ=6
CC	IF(MOD(ICNT,100).NE.0)GO TO 997
	KCNT=KCNT+1
	IF(KCNT.LT.LCNT)GO TO 997
	KCNT=0
	KF=0 
	KZZ=14
997	IF(KOLD.EQ.KK)GO TO 777
	K80=KOLD
	IF(KK.GT.KOLD)K80=KK
	IF(KK.GE.LEND)LEND=K40 
	DO 4 KM=6,LEND
4	L(KM)=IBLA
400	LEND=KK
	INC=-1
	IF(KK.GE.K40)INC=-INC
	DO 999 KZ=K40,KK,INC
999	L(KZ)=IAST
998	KZ=KK  
	KOLD=KK
	IF (KZ.GE.K40)GO TO 777
	KZ=K40
777	IF(KF)GO TO 7
	WRITE(IDEV,106)NMX,ICNT,(L(NN),NN=11,KZ)
	IF(IDEV.EQ.1)TYPE 106,NMX,ICNT  
C***TELL HOW FAR ALONG WE ARE.
	GO TO 3
CC7	IF(JUNPAC.NE.0)GO TO 778
7	WRITE(IDEV,1105)KX,(L(NN),NN=6,KZ)
	GO TO 3
778	WRITE(IDEV,105)KX,(L(NN),NN=9,KZ)
3	CONTINUE 
	GO TO 2
CXX41	CALL CLOSE(21)
CPDP10   41	IF(IDEV.EQ.1)END FILE(1)
41	GO TO 1212
47	FORMAT(' INCREMENT = '$)
105	FORMAT(I9,122A1)
1105	FORMAT(I6,124A1)
106	FORMAT(1XA4,I6,120A1)
	END